home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Demos / AppMaker 2.0b3 / Demo AppMaker 1.5 / Demo AppMaker™ / Demo AppMaker™.rsrc / TmpP_105_Menu < prev    next >
Encoding:
Text File  |  1992-04-08  |  845 b   |  63 lines
  1. { %filename% -- menu}
  2. { Created %date% %time% by AppMaker }
  3.  
  4. Unit %UnitName%;
  5. Interface
  6.  
  7. Uses
  8.     %if lang = MPW%
  9.         Types,
  10.         Quickdraw,
  11.         Controls,
  12.         Dialogs,
  13.         %if menuname = Edit%
  14.             Editions,
  15.         %endif%
  16.         Events,
  17.         Lists,
  18.         Menus,
  19.         TextEdit,
  20.  
  21.     %elsif lang = Think%
  22.         %if menuname = Edit%
  23.             Editions,
  24.         %endif%
  25.     %endif%
  26.     %for each menuItem gen usesDialog%
  27.  
  28.     Globals,
  29.     ResourceDefs,
  30.     DoScrap;
  31.  
  32. {----------}
  33. Procedure Init%MenuName%M;
  34. Procedure Do%MenuName%    (itemNr:    integer);
  35.  
  36. {----------}
  37. Implementation
  38.  
  39. %if lang = MPW%
  40.     {$D+}
  41.     {$R+}
  42.     {$OV+}
  43.     {$S %unitname%}
  44.  
  45. %end if%
  46. {----------}
  47. Procedure Init%MenuName%M;
  48. Begin
  49. End; {Init%MenuName%M}
  50.  
  51. %for each menuitem gen doItem%
  52. {----------}
  53. Procedure Do%MenuName%    (itemNr:    integer);
  54. Begin
  55.     case itemNr of
  56.         0:    ;
  57.         %for each menuitem gen handleitem%
  58.  
  59.     end; {case}
  60. End; {Do%MenuName%}
  61.  
  62. End. {%UnitName%}
  63.